﻿Public Class Points
    Dim mx, my As Double
    Dim mk As Double
    Dim misZD As Boolean = False
    Dim mpType As String = "Line"
    Dim mname As String
    Dim mR, mLS As Double
    Dim mlabel As String

    Public Property x As Double
        Get
            Return mx
        End Get
        Set(value As Double)
            mx = value
        End Set
    End Property

    Public Property y As Double
        Get
            Return my
        End Get
        Set(value As Double)
            my = value
        End Set
    End Property

    Public Property k As Double
        Get
            Return mk
        End Get
        Set(value As Double)
            mk = value
        End Set
    End Property

    Public Property isZD As Boolean
        Get
            Return misZD
        End Get
        Set(value As Boolean)
            misZD = value
        End Set
    End Property

    Public Property pType As String
        Get
            Return mpType
        End Get
        Set(value As String)
            mpType = value
        End Set
    End Property
    Public Property name As String
        Get
            Return mname
        End Get
        Set(value As String)
            mname = value
        End Set
    End Property

    Public Property R As Double
        Get
            Return mR
        End Get
        Set(value As Double)
            mR = value
        End Set
    End Property

    Public Property LS As Double
        Get
            Return mLS
        End Get
        Set(value As Double)
            mLS = value
        End Set
    End Property
    Public Property label As String
        Get
            Return mlabel
        End Get
        Set(value As String)
            mlabel = value
        End Set
    End Property
End Class
